home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / mac / Chapter Tutorials / DevGallery / Headbone / Source / DRESSVEL.DIR / 00093_updateClosetScript.ls < prev    next >
Encoding:
Text File  |  1996-04-30  |  1.1 KB  |  33 lines
  1. on updateCloset
  2.   global glClosetItemSprites
  3.   set vWearSprite to getSpriteFromPageType()
  4.   repeat with vClosetSprite in glClosetItemSprites
  5.     if (the castNum of sprite vClosetSprite = the castNum of sprite vWearSprite) and the visible of sprite vWearSprite then
  6.       set the visible of sprite vClosetSprite to 0
  7.       next repeat
  8.     end if
  9.     set the visible of sprite vClosetSprite to 1
  10.   end repeat
  11. end
  12.  
  13. on hideCloset
  14.   global glClosetItemSprites
  15.   repeat with vSprite in glClosetItemSprites
  16.     set the visible of sprite vSprite to 0
  17.   end repeat
  18. end
  19.  
  20. on makeNaked
  21.   global glClosetItemSprites, gHatSprite, gGlovesSprite, gShoesSprite, gJacketSprite, gShirtSprite, gPantsSprite
  22.   repeat with vSprite in glClosetItemSprites
  23.     set the visible of sprite vSprite to 1
  24.   end repeat
  25.   set the visible of sprite gHatSprite to 0
  26.   set the visible of sprite gGlovesSprite to 0
  27.   set the visible of sprite gShoesSprite to 0
  28.   set the visible of sprite gJacketSprite to 0
  29.   set the visible of sprite gShirtSprite to 0
  30.   set the visible of sprite gPantsSprite to 0
  31.   updateStage()
  32. end
  33.